(vc-backend-admin): If there is no SCCS subdirectory yet, create it.

diff --git a/lisp/vc.el b/lisp/vc.el
index 5762cf4e605f366f69769b506e11a4127a01b01f..d261692db04f97d99266ce6f0f4ac2c8f577b2cc 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1957,6 +1957,9 @@ default directory."
          ((file-exists-p "CVS") 'CVS)
          (t vc-default-back-end))))
     (cond ((eq backend 'SCCS)
+          ;; If there is no SCCS subdirectory yet, create it.
+           ;; (SCCS could do without it, but VC requires it to be there.)
+           (if (not (file-exists-p "SCCS")) (make-directory "SCCS"))
           (apply 'vc-do-command nil 0 "admin" file 'MASTER     ;; SCCS
                                  (and rev (concat "-r" rev))
                                  "-fb"